CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_10613.txt

Text File | 1990-10-02 | 11KB | 494 lines

-- card: 10613 from stack: in.03 –µ–µ–µ
-- bmap block id: 8862
-- flags: 0000
-- background id: 10462
-- name:
----- HyperTalk script -----
on openCard
  global examFlag,dropFlag,useFlag,dropRoom,cardID,carried,invFlag
  set the cursor to 4
  put "" into card field 2
  put carried into card field 3
  if examFlag=true
  then put "click on the object to examine" into card field 1
  if dropFlag=true
  then put "click on the object to drop" into card field 1
  if useFlag=true
  then put "click on the object to use" into card field 1
  if carried = 0 then show card button "no objects carried"
  else hide card button "no objects carried"
  put cardID into dropRoom
  put true into invFlag
end openCard

on closeCard
  set the cursor to 4
end closeCard

on quitGame
  global knifeLoc,noduleLoc,ladderLoc,bombLoc,keyLoc,gemLoc,orbLoc
  set the cursor to 4
  hide card button knife of card id knifeLoc
  hide card button nodule of card id noduleLoc
  hide card button ladder of card id ladderLoc
  hide card button bomb of card id bombLoc
  hide card button gem of card id gemLoc
  hide card button key of card id keyLoc
  hide card button orb of card id orbLoc
  go home
  show menuBar
end quitGame




-- part 2 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=103 top=220 right=256 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global cardID,object,examFlag,dropFlag,useFlag,carried
  put the name of the target into object
  if examFlag = true then
    put "A very sharp knife.  I'd be careful with it if I were you." into card field 2
    exit mouseUp
  end if
  if dropFlag = true then
    put false into dropFlag
    hide object
    subtract 1 from carried
    go to card id cardID
    send drop to card id cardID
    exit mouseUp
  end if
  if useFlag = true then
    put false into useFlag
    go to card id cardID
    send use to card id cardID
    exit mouseUp
  end if
end mouseUp



-- part 3 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=55 top=220 right=256 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global cardID,object,examFlag,dropFlag,useFlag,carried
  put the name of the target into object
  if examFlag = true then
    put "A shiny silicon sphere. It feels hollow." into card field 2
    exit mouseUp
  end if
  if dropFlag = true then
    put false into dropFlag
    hide object
    subtract 1 from carried
    go to card id cardID
    send drop to card id cardID
    exit mouseUp
  end if
  if useFlag = true then
    put false into useFlag
    go to card id cardID
    send use to card id cardID
    exit mouseUp
  end if
end mouseUp



-- part 4 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=152 top=220 right=256 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global cardID,object,examFlag,dropFlag,useFlag,carried
  put the name of the target into object
  if examFlag = true then
    put "An unattached rope ladder, about 30 feet long." into card field 2
    exit mouseUp
  end if
  if dropFlag = true then
    put false into dropFlag
    hide object
    subtract 1 from carried
    go to card id cardID
    send drop to card id cardID
    exit mouseUp
  end if
  if useFlag = true then
    put false into useFlag
    if cardID=24636 or cardID=25160 or cardID=29230 or cardID=29888
    then
    hide object
    subtract 1 from carried
  end if
  go to card id cardID
  send use to card id cardID
  exit mouseUp
end if
end mouseUp



-- part 5 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=80 top=174 right=210 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global cardID,object,examFlag,dropFlag,useFlag,carried
  put the name of the target into object
  if examFlag = true then
    put "A large brass key. Perhaps it belongs to a door..." into card field 2
    exit mouseUp
  end if
  if dropFlag = true then
    put false into dropFlag
    hide object
    subtract 1 from carried
    go to card id cardID
    send drop to card id cardID
    exit mouseUp
  end if
  if useFlag = true then
    put false into useFlag
    go to card id cardID
    send use to card id cardID
    exit mouseUp
  end if
end mouseUp



-- part 6 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=128 top=174 right=210 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global cardID,object,examFlag,dropFlag,useFlag,carried
  put the name of the target into object
  if examFlag = true then
    put "A time bomb. You could 'use' it, but how long is the delay?" into card field 2
    exit mouseUp
  end if
  if dropFlag = true then
    put false into dropFlag
    hide object
    subtract 1 from carried
    go to card id cardID
    send drop to card id cardID
    exit mouseUp
  end if
  if useFlag = true then
    put false into useFlag
    go to card id cardID
    send use to card id cardID
    exit mouseUp
  end if
end mouseUp



-- part 7 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=128 top=129 right=165 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global cardID,object,examFlag,dropFlag,useFlag,carried
  put the name of the target into object
  if examFlag = true then
    put "The glowing gem of light. Very pretty." into card field 2
    exit mouseUp
  end if
  if dropFlag = true then
    put false into dropFlag
    hide object
    subtract 1 from carried
    go to card id cardID
    send drop to card id cardID
    exit mouseUp
  end if
  if useFlag = true then
    put false into useFlag
    go to card id cardID
    send use to card id cardID
    exit mouseUp
  end if
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=80 top=129 right=165 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global cardID,object,examFlag,dropFlag,useFlag,carried
  put the name of the target into object
  if examFlag = true then
    put "The crystal orb of power!" into card field 2
    exit mouseUp
  end if
  if dropFlag = true then
    put false into dropFlag
    hide object
    subtract 1 from carried
    go to card id cardID
    send drop to card id cardID
    exit mouseUp
  end if
  if useFlag = true then
    put false into useFlag
    go to card id cardID
    send use to card id cardID
    exit mouseUp
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=233 top=139 right=158 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Use object
----- HyperTalk script -----
on mouseUp
  global examFlag,useFlag,dropFlag
  put false into examFlag
  put true into useFlag
  put false into dropFlag
  put "click on the object to use" into card field 1
end mouseUp




-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=218 top=232 right=270 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to game
----- HyperTalk script -----
on mouseUp
  global cardID,examFlag,dropFlag,useFlag
  put false into dropFlag
  put false into examFlag
  put false into useFlag
  go to card id cardID
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=230 top=166 right=185 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Drop object
----- HyperTalk script -----
on mouseUp
  global examFlag,useFlag,dropFlag
  put false into examFlag
  put false into useFlag
  put true into dropFlag
  put "click on the object to drop" into card field 1
end mouseUp




-- part 14 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=17 top=98 right=117 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=217 top=193 right=212 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Examine object
----- HyperTalk script -----
on mouseUp
  global examFlag,useFlag,dropFlag
  put true into examFlag
  put false into useFlag
  put false into dropFlag
  put "click on the object to examine" into card field 1
end mouseUp




-- part 18 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=8 top=280 right=332 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 21 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=263 top=62 right=81 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=413 top=309 right=337 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  answer "Do you really want to quit the game?" with "yes"or"no"
  if it="no" then exit mouseUp
  quitGame
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=57 top=180 right=203 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: no objects carried


-- part contents for card part 14
----- text -----
click on the object to examine

-- part contents for card part 21
----- text -----
0